home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / telecom / 86 / modula / demo.mod < prev    next >
Encoding:
Text File  |  1986-12-19  |  772 b   |  29 lines
  1. MODULE TestFileSelector;
  2.  
  3. FROM AESGraphics IMPORT
  4.        GrafMouse;
  5. FROM FileSelectorDialog IMPORT
  6.        FileSelector;
  7. FROM Terminal IMPORT
  8.        WriteString,WriteLn,Read;
  9.  
  10. VAR Ch:CHAR;
  11.     Pathname,Filename,DefaultExtents:ARRAY[0..80] OF CHAR;
  12.  
  13. BEGIN
  14.      GrafMouse(0,NIL);
  15.      Pathname := 'A:\';
  16.      Filename := '';
  17.      DefaultExtents := '[.MOD|.DEF|.C|.TXT]';
  18.  
  19.      IF FileSelector(Pathname,Filename,DefaultExtents) THEN
  20.          WriteString('Pathname was: '); WriteString(Pathname); WriteLn;
  21.          WriteString('Filename was: '); WriteString(Filename); WriteLn
  22.        ELSE
  23.          WriteString('CANCEL button was selected'); WriteLn
  24.      END;
  25.      WriteLn;
  26.      WriteString('Press any key....');
  27.      Read(Ch);
  28. END TestFileSelector.
  29.